;;;;Save named views
;;;;
;;;;	AUTHOR: HENRY C. FRANCIS
;;;;		425 N. ASHE ST.
;;;;		SOUTHERN PINES, NC 28387
;;;;              
;;;;		All rights reserved without prejudice.
;;;;
;;;;	Copyright:	9-4-96
;;;;	Edited:		9-20-2010 Disabled (Obsolete)
;;;;
(defun vwnxdata (/)
;;;(if(and(/=(GETVAR"DWGNAME")"UNNAMED")(/=(GETVAR"DWGNAME")"EPSTRT12")(/=(GETVAR"DWGNAME")"NONE"))
;;;(progn
;;;  (setq rapnm "SAVED_VIEW_LOG")
;;;  (regapp rapnm)
;;;  (setq nxdl (list rapnm))
;;;  (setq nxdl append nxdl '(1002 . "{"))
;;;  (foreach n sview_list
;;;    (setq nxdl (append nxdl (cons 1000 n )))
;;;  );foreach
;;;  (setq nxdl (append nxdl(list '(1002 . "}"))))
;;;  (setq nxdl (list -3 nxdl))
(princ)
;;;);progn
;;;);if
)
;;;;---------------------------------------------------------------------------
(defun vw_log ( / luprc rapnm edss ename xelst nedlst xedlst elst)
;;;(if(and(/=(GETVAR"DWGNAME")"UNNAMED")(/=(GETVAR"DWGNAME")"EPSTRT12")(/=(GETVAR"DWGNAME")"NONE"))
(progn
  (vwnxdata)
;;;  (if
;;;    (setq edss (ssget "x" (list '(-3 ("SAVED_VIEW_LOG")) (cons 2 "SAVED-VIEW-LOG")(cons 10 (list 0.0 0.0 0.0)))))
;;;    (progn
;;;      (setq ename (ssname edss 0))
;;;      (setq xelst (entget ename (list rapnm)))
;;;      (setq nedlst (list(cons 1000 (strcat vwactstr(substr(rtos(getvar"cdate"))3)lname curdwg))))
;;;      (setq xedlst (cdr(reverse(cddr(assoc rapnm(cdr(assoc -3 xelst)))))))
;;;      (setq xedlst (append xedlst nedlst))
;;;      (setq xedlst (cons(cons 1002 "}") xedlst))
;;;      (setq xedlst (cons(cons 1002 "{")(reverse xedlst)))
;;;      (setq xedlst (cons "CORP" xedlst))
;;;      (setq elst
;;; 	(subst (cons -3 (list xedlst))
;;;               (assoc -3 xelst)
;;;	       xelst
;;;	)
;;;      )
;;;      (entmod elst)
;;;    );progn
;;;    (progn
;;;;      (princ "\nedss IS NOT found. ")
;;;      (newent "SAVED-VIEW-LOG")
;;;      (setq ename (entlast))
;;;      (setq xelst (entget ename))
;;;      (setq xelst (append xelst (list nxdl)))
;;;      (entmod xelst)
;;;      (setq xelst (entget ename (list rapnm)))
;;;    );progn
;;;  );if
);progn
;;;);if
;;;(princ)
)
;;;;---------------------------------------------------------------------------
(defun newent (nblkn /)
;;;(if(and(/=(GETVAR"DWGNAME")"UNNAMED")(/=(GETVAR"DWGNAME")"EPSTRT12")(/=(GETVAR"DWGNAME")"NONE"))
;;;(progn
;;;  (entmake
;;;    (list
;;;      (cons 0 "BLOCK")
;;;      (cons 8 "0")
;;;      (cons 2 nblkn)
;;;      (cons 6 "BYBLOCK")
;;;      (cons 10 '(0.00 0.00 0.00))
;;;      (cons 62 0)
;;;      (cons 70 2)
;;;    )
;;;  )
;;;;  (princ"\nEntmake BLOCK ")
;;;;  (entmake
;;;;    (list
;;;;      (cons 0 "TEXT")
;;;;      (cons 8 "0")
;;;;      (cons 1 "DO NOT ERASE")
;;;;      (cons 10 '(0.00 0.00 0.00))
;;;;      (cons 40 0.05)
;;;;    )
;;;;  )
;;;;  (princ"\nEntmake TEXT ")
;;;  (entmake
;;;    (list
;;;      (cons 0 "ENDBLK")
;;;    ) 
;;;  )
;;;;  (princ"\nEntmake ENDBLK ")
;;;   (entmake
;;;    (list
;;;      (cons 0 "INSERT")
;;;      (cons 8 "0")
;;;      (cons 2 nblkn)
;;;      (cons 6 "BYBLOCK")
;;;      (cons 10 '(0.00 0.00 0.00))
;;;      (cons 66 1)
;;;    )
;;;  )
;;;;  (princ"\nEntmake INSERT ")
;;;;   (entmake
;;;;    (list
;;;;      (cons 0 "ATTRIB")
;;;;      (cons 8 "0")
;;;;      (cons 1 "DO NOT ERASE")
;;;;      (cons 2 "")
;;;;      (cons 6 "BYBLOCK")
;;;;      (cons 10 '(0.00 0.00 0.00))
;;;;      (cons 40 0.005)
;;;;      (cons 70 1)
;;;;    )
;;;;  )
;;;;  (princ"\nEntmake ATTRIB ")
;;;  (entmake
;;;    (list
;;;      (cons 0 "SEQEND")
;;;      (cons -2 nblkn)
;;;    ) 
;;;  )
;;;;  (princ"\nEntmake SEQEND ")
;;;);progn
;;;);if
(princ)
);defun
